% pol2tai
% Chris Whalen
% University of Illinois
% 05/20/04


% pol2brk_ctr - this program convert an xyz matrix in polhemus coordinates to
%               tai coordinates

function [xyz] = pol2brk_ctr(xyz)


i=2;j=1;k=3;
elp_sgn=[1 -1 1];

for i_loc=1:size(xyz,1)
	temp(1)=elp_sgn(1)*xyz(i_loc,i);
    temp(2)=elp_sgn(2)*xyz(i_loc,j);
    temp(3)=elp_sgn(3)*xyz(i_loc,k);
    xyz(i_loc,:)=temp;
end

xyz=xyz*1000; %placing in millimeters

